home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / mus / edit / OctaScripts.lha / scripts / AboveCMD_dec.omed < prev    next >
Text File  |  1998-04-15  |  690b  |  28 lines
  1. /************************************************************
  2.  
  3.                    OctaMED ARexx Script
  4.  
  5.     PT Clone (Left Alt + Key three steps left from backspace):
  6.     Copies command from the line above, decreases the level
  7.     and puts it on the current line.
  8.  
  9. ************************************************************/
  10.  
  11. OP_GET EDIT VAR editstatus
  12.  
  13. IF (editstatus=1) THEN DO
  14.    ED_GETCURRLINE VAR currline
  15.    ED_GETNUMLINES VAR lastline
  16.  
  17.    IF (currline = 0) THEN fromline = lastline-1
  18.    ELSE fromline = currline-1
  19.  
  20.    ED_GETDATA LINE fromline CMDNUM VAR num
  21.    ED_GETDATA LINE fromline CMDLVL VAR lvl
  22.  
  23.    ED_SETDATA CMDNUM num CMDLVL lvl-1
  24.    ED_ADVANCELINE DOWN SPACING
  25. END
  26.  
  27. EXIT
  28.